68
I have a hierarchy and I need to filter only root items that match, with thier childs

With ComboBox1
	.LinesAtRoot = -1
	.FilterInclude = 3
	With .Columns.Add("Column")
		.DisplayFilterButton = True
		.FilterType = 240
		.Filter = "R1"
	End With
	With .Items
		h = .AddItem("R1")
		.InsertItem h,,"C1"
		.InsertItem h,,"C2"
		.ExpandItem(h) = True
		h = .AddItem("R2")
		.InsertItem h,,"C1"
		.InsertItem h,,"C2"
	End With
	.ApplyFilter 
End With
66
I have a hierarchy and I need to filter only parent items that match, including thier childs

With ComboBox1
	.LinesAtRoot = -1
	.FilterInclude = 1
	With .Columns.Add("Column")
		.DisplayFilterButton = True
		.FilterType = 240
		.Filter = "R1"
	End With
	With .Items
		h = .AddItem("R1")
		.InsertItem h,,"C1"
		.InsertItem h,,"C2"
		.ExpandItem(h) = True
		h = .AddItem("R2")
		.InsertItem h,,"C1"
		.InsertItem h,,"C2"
	End With
	.ApplyFilter 
End With
558
I do not like to specify the item padding for every column I add. The question is how can I do it automatically

With ComboBox1
	.BeginUpdate 
	.AttachTemplate "handle AddColumn(Column){Column{Def(48)=8;Def(49)=8;AllowDragging=False;AllowSizing = True}}"
	.HeaderAppearance = 4
	.DrawGridLines = -1
	.GridLineStyle = 32
	With .Columns
		.Add "Item"
		With .Add("Pos")
			.Position = 0
			.Width = 32
			.AllowSizing = False
			.FormatColumn = "1 index ``"
		End With
	End With
	With .Items
		.AddItem "Item A"
		.AddItem "Item B"
		.AddItem "Item C"
	End With
	.EndUpdate 
End With
472
I cannot seem to get autosearch=1 (contains) in the column object to search properly. It still only finds items that start with the typed character. I want to it look to see if the typed character(s) are contained in the item. I Can't seem to get this to work

With ComboBox1
	.BeginUpdate 
	.Style = 2
	.HeaderVisible = False
	.AutoSearch = True
	.AutoDropDown = True
	.IntegralHeight = True
	.Columns.Add("Default").AutoSearch = 1
	With .Items
		.AddItem "This is a bit of text"
		.AddItem "This is a another text"
	End With
	.EndUpdate 
End With
94
I can't scroll to the end of the data. What can I do

With ComboBox1
	.ScrollBySingleLine = True
	.DrawGridLines = -2
	.Columns.Add "Column"
	With .Items
		.ItemHeight(.AddItem(0)) = 13
	End With
	.PutItems .GetItems(0)
	With .Items
		.ItemHeight(.AddItem(1)) = 26
	End With
	.PutItems .GetItems(0)
	With .Items
		.ItemHeight(.AddItem(2)) = 36
	End With
	.PutItems .GetItems(0)
	With .Items
		.ItemHeight(.AddItem(3)) = 48
	End With
	.PutItems .GetItems(0)
End With
469
I am using the ScrollWidth/ScrollHeight property on 0 to hide the control's scroll bars, the question is that the drop down button is disappearing. What can be done so I can still show the drop down button

With ComboBox1
	.BeginUpdate 
	.LabelHeight = 40
	.ScrollWidth = 0
	.ScrollHeight = 0
	.DropDownButtonWidth = 40
	.EndUpdate 
End With
514
I am using filter prompt feature, and also column's filter, just wondering if possible to compact displaying the filter bar so it won't show on multiple lines

With ComboBox1
	.BeginUpdate 
	.Columns.Add("Item").DisplayFilterButton = True
	With .Columns.Add("Pos")
		.AllowSizing = False
		.AllowSort = False
		.Width = 32
		.FormatColumn = "1 apos ``"
		.Position = 0
	End With
	With .Items
		.AddItem "Item A"
		.AddItem "Item B"
		.AddItem "Item C"
	End With
	.FilterBarFont = .Font
	.FilterBarCaption = "`<r><i><fgcolor=808080><upline><solidline><sha ;;0>` + value"
	.FilterBarPromptPattern = "B"
	.FilterBarPromptVisible = 2067 ' FilterBarVisibleEnum.exFilterBarCompact Or FilterBarVisibleEnum.exFilterBarSingleLine Or FilterBarVisibleEnum.exFilterBarVisible Or FilterBarVisibleEnum.exFilterBarPromptVisible
	With .Columns.Item(0)
		.FilterType = 240
		.Filter = "Item A|Item B"
	End With
	.ApplyFilter 
	.EndUpdate 
End With
550
I am calling Value to change the selected value, but the selection is not visible, unless I scroll to it

With ComboBox1
	.BeginUpdate 
	.ColumnAutoResize = False
	Set rs = CreateObject("ADODB.Recordset")
	With rs
		.Open "Orders","Provider=Microsoft.ACE.OLEDB.12.0;Data Source=C:\Program Files\Exontrol\ExComboBox\Sample\Access\sample.accdb",1,1
	End With
	.DataSource = rs
	.Value = 10311
	With .Items
		.EnsureVisibleItem .FocusItem
	End With
	.EndUpdate 
End With
146
I've seen that you can change the visual appearance for the scroll bar. How can I do that

With ComboBox1
	.VisualAppearance.Add 1,"c:\exontrol\images\normal.ebn"
	.VisualAppearance.Add 2,"c:\exontrol\images\pushed.ebn"
	.VisualAppearance.Add 3,"c:\exontrol\images\hot.ebn"
	.Background(324) = &H1000000
	.Background(325) = &H2000000
	.Background(327) = &H3000000
	.Background(404) = RGB(240,240,240)
	.Background(276) = RGB(240,240,240)
	.Background(511) = RGB(240,240,240) ' BackgroundPartEnum.exScrollHoverAll Or BackgroundPartEnum.exDateScrollThumb
	.Columns.Add("S").Width = 32
	.Columns.Add("Level 1").LevelKey = 1
	.Columns.Add("Level 2").LevelKey = 1
	.Columns.Add("Level 3").LevelKey = 1
	.Columns.Add("E1").Width = 32
	.Columns.Add("E2").Width = 32
	.Columns.Add("E3").Width = 32
	.Columns.Add("E4").Width = 32
	.ColumnAutoResize = False
End With
119
I've seen that the width of the tooltip is variable. Can I make it larger

With ComboBox1
	.ToolTipWidth = 328
	.Columns.Add("tootip").ToolTip = "this is a tooltip that should be very very very very very very very long"
End With
2
I've added a single column, but it is displayed only on a part of the control. Is there something I can do so the column will be fully displayed on the control

With ComboBox1
	.Columns.Add "ColumnName"
	.Items.AddItem "Item 1"
	.Items.AddItem "Item 2"
End With
473
How would you clear the displayed selection for style DropDownList. So if a user selects or searches a value in a style DropDownList, I want to know if I can reset the control back to an empty selection

' DropUp event - Occurs when the drop-down portion of the control is hidden.
Private Sub ComboBox1_DropUp()
	With ComboBox1
		.Value = ""
	End With
End Sub

' SelectionChanged event - Fired after a new item has been selected.
Private Sub ComboBox1_SelectionChanged()
	With ComboBox1
		Debug.Print( "You selected: " )
		Debug.Print( .Value )
	End With
End Sub

With ComboBox1
	.BeginUpdate 
	.Style = 2
	.HeaderVisible = False
	.AutoSearch = True
	.AutoDropDown = True
	.IntegralHeight = True
	.Columns.Add("Default").AutoSearch = 1
	With .Items
		.AddItem "This is a bit of text"
		.AddItem "This is a another text"
		.DefaultItem = .InsertItem(,,"")
		.ItemPosition(0) = 0
		.SortableItem(0) = False
	End With
	.EndUpdate 
End With
560
How I can programmatically select a row (with regular combobox I can set the ListIndex right up to Listcount -1)

With ComboBox1
	.BeginUpdate 
	.Columns.Add "Column"
	With .Items
		.AddItem "Item 1"
		.AddItem "Item 2"
		.AddItem "Item 3"
		.SelectItem(.ItemByIndex(1)) = True
	End With
	.EndUpdate 
End With
561
How I can programmatically select a row (method 2)

With ComboBox1
	.BeginUpdate 
	.Columns.Add "Column"
	With .Items
		.AddItem "Item 1"
		.AddItem "Item 2"
		.AddItem "Item 3"
	End With
	.Value = "Item 2"
	.EndUpdate 
End With
88
How do lock / fix some columns to the control, so I can see them all the time, event if I scroll the columns

With ComboBox1
	.CountLockedColumns = 1
	.BackColorLock = RGB(240,240,240)
	.ColumnAutoResize = False
	.Columns.Add("Locked").Width = 128
	.Columns.Add("Un-Locked 1").Width = 128
	.Columns.Add("Un-Locked 2").Width = 128
	.Columns.Add("Un-Locked 3").Width = 128
	With .Items
		.CellCaption(.AddItem("locked"),1) = "unlocked"
	End With
End With
299
How do I vertically align a cell

With ComboBox1
	.DrawGridLines = -2
	.Columns.Add("MultipleLine").Def(16) = False
	.Columns.Add "VAlign"
	With .Items
		h = .AddItem("This is a bit of long text that should break the line")
		.CellCaption(h,1) = "top"
		.CellVAlignment(h,1) = 0
		h = .AddItem("This is a bit of long text that should break the line")
		.CellCaption(h,1) = "middle"
		.CellVAlignment(h,1) = 1
		h = .AddItem("This is a bit of long text that should break the line")
		.CellCaption(h,1) = "bottom"
		.CellVAlignment(h,1) = 2
	End With
End With
84
How do I use my own icons for my radio buttons

With ComboBox1
	.Images "gBJJgBAIDAAGAAEAAQhYAf8Pf4hh0QihCJo2AEZjQAjEZFEaIEaEEaAIAkcbk0olUrlktl0vmExmUzmk1m03nE5nU7nk9n0/oFBoVDolFo1HpFJpVLplNp1PqFRqVTq" & _
	"lVq1XrFZrVbrldr1fsFhsVjslls1ntFptVrtltt1vuFxuVzul1u13vF5vV7vl9v1/wGBwWDwmFw2HxGJxWLxmNx0xiFdyOTh8Tf9ZymXx+QytcyNgz8r0OblWjyWds+m" & _
	"0ka1Vf1ta1+r1mos2xrG2xeZ0+a0W0qOx3GO4NV3WeyvD2XJ5XL5nN51aiw+lfSj0gkUkAEllHanHI5j/cHg8EZf7w8vl8j4f/qfEZeB09/vjLAB30+kZQAP/P5/H6/y" & _
	"NAOAEAwCjMBwFAEDwJBMDwLBYAP2/8Hv8/gAGAD8LQs9w/nhDY/oygIA="
	.RadioImage(0) = 1
	.RadioImage(1) = 2
	.Columns.Add("Radio").Def(1) = True
	With .Items
		.AddItem "Radio 1"
		.CellState(.AddItem("Radio 2"),0) = 1
		.AddItem "Radio 3"
	End With
End With
83
How do I use my own icons for checkbox cells

With ComboBox1
	.Images "gBJJgBAIDAAGAAEAAQhYAf8Pf4hh0QihCJo2AEZjQAjEZFEaIEaEEaAIAkcbk0olUrlktl0vmExmUzmk1m03nE5nU7nk9n0/oFBoVDolFo1HpFJpVLplNp1PqFRqVTq" & _
	"lVq1XrFZrVbrldr1fsFhsVjslls1ntFptVrtltt1vuFxuVzul1u13vF5vV7vl9v1/wGBwWDwmFw2HxGJxWLxmNx0xiFdyOTh8Tf9ZymXx+QytcyNgz8r0OblWjyWds+m" & _
	"0ka1Vf1ta1+r1mos2xrG2xeZ0+a0W0qOx3GO4NV3WeyvD2XJ5XL5nN51aiw+lfSj0gkUkAEllHanHI5j/cHg8EZf7w8vl8j4f/qfEZeB09/vjLAB30+kZQAP/P5/H6/y" & _
	"NAOAEAwCjMBwFAEDwJBMDwLBYAP2/8Hv8/gAGAD8LQs9w/nhDY/oygIA="
	.CheckImage(0) = 1
	.CheckImage(1) = 2
	.Columns.Add("Check").Def(0) = True
	With .Items
		.AddItem "Check 1"
		.CellState(.AddItem("Check 2"),0) = 1
	End With
End With
479
How do I unselect/deselect the item (Simple style)
With ComboBox1
	.BeginUpdate 
	.Style = 0
	.Columns.Add "Def"
	With .Items
		.AddItem "Item 1"
		.AddItem "Item 2"
		.AddItem "Item 3"
		.AddItem "Item 3"
	End With
	.SearchColumnIndex = 0
	.Value = "Item 2"
	With .Items
		.SelectItem(.FocusItem) = False
	End With
	.EndUpdate 
End With
478
How do I unselect/deselect the item (DropDownList style)
With ComboBox1
	.BeginUpdate 
	.Style = 1
	.Columns.Add "Def"
	With .Items
		.AddItem "Item 1"
		.AddItem "Item 2"
		.AddItem "Item 3"
		.AddItem "Item 3"
	End With
	.SearchColumnIndex = 0
	.Value = "Item 2"
	With .Items
		.SelectItem(.FocusItem) = False
	End With
	.EndUpdate 
End With
477
How do I unselect/deselect the item (DropDown style)
With ComboBox1
	.BeginUpdate 
	.Style = 1
	.Columns.Add "Def"
	With .Items
		.AddItem "Item 1"
		.AddItem "Item 2"
		.AddItem "Item 3"
		.AddItem "Item 3"
	End With
	.SearchColumnIndex = 0
	.Value = "Item 2"
	With .Items
		.SelectItem(.FocusItem) = False
	End With
	.EndUpdate 
End With
288
How do I unselect an item

With ComboBox1
	.Columns.Add "Default"
	With .Items
		h = .AddItem("Root 1")
		.InsertItem h,,"Child 1"
		.InsertItem h,,"Child 2"
		.ExpandItem(h) = True
		.SelectItem(h) = False
	End With
End With
155
How do I underline the numbers greater than a value

With ComboBox1
	.ConditionalFormats.Add("%0 >= 10").Underline = True
	.Columns.Add "Numbers"
	.Items.AddItem 1
	.Items.AddItem 2
	.Items.AddItem 10
	.Items.AddItem 20
End With
244
How do I underline an item

With ComboBox1
	.Columns.Add "Default"
	With .Items
		.ItemUnderline(.AddItem("underline")) = True
	End With
End With
245
How do I underline a cell or an item

With ComboBox1
	.Columns.Add "Default"
	With .Items
		.CellCaptionFormat(.AddItem("gets <u>underline</u> only a portion of text"),0) = 1
	End With
End With
246
How do I underline a cell

With ComboBox1
	.Columns.Add "Default"
	With .Items
		.CellUnderline(.AddItem("underline"),0) = True
	End With
End With
325
How do I turn off the auto complete feature

With ComboBox1
	.AutoComplete = False
	.Columns.Add "Column"
	With .Items
		.AddItem "Item 3"
		.AddItem "Item 1"
		.AddItem "Item 2"
	End With
End With
328
How do I specify the width of the drop down window

With ComboBox1
	.WidthList() = 100
	.AllowSizeGrip = True
	.Columns.Add "Column"
	With .Items
		.AddItem "Item 3"
		.AddItem "Item 1"
		.AddItem "Item 2"
	End With
End With
327
How do I specify the minimum width of the drop down window

With ComboBox1
	.MinWidthList = 100
	.AllowSizeGrip = True
	.Columns.Add "Column"
	With .Items
		.AddItem "Item 3"
		.AddItem "Item 1"
		.AddItem "Item 2"
	End With
End With
329
How do I specify the minimum height of the drop down window

With ComboBox1
	.MinHeightList = 100
	.AllowSizeGrip = True
	.Columns.Add "Column"
	With .Items
		.AddItem "Item 3"
		.AddItem "Item 1"
		.AddItem "Item 2"
	End With
End With
92
How do I specify the indentation of the child items relative to their parents

With ComboBox1
	.LinesAtRoot = 1
	.Indent = 11
	.Columns.Add "Column"
	With .Items
		h = .AddItem("Root 1")
		.InsertItem h,,"Child 1"
		.InsertItem h,,"Child 2"
		.ExpandItem(h) = True
		h = .AddItem("Root 2")
		.InsertItem h,,"Child"
	End With
End With
330
How do I specify the height of the drop down window

With ComboBox1
	.HeightList() = 400
	.MinWidthList = 100
	.AllowSizeGrip = True
	.Columns.Add "Column"
	With .Items
		.AddItem "Item 3"
		.AddItem "Item 1"
		.AddItem "Item 2"
	End With
End With
338
How do I specify the height of the control's label

With ComboBox1
	.LabelHeight = 34
	.Columns.Add "Column"
	With .Items
		.AddItem "Item 3"
		.AddItem "Item 1"
		.AddItem "Item 2"
	End With
End With
93
How do I specify the column where the tree lines / hierarchy are shown

With ComboBox1
	.LinesAtRoot = 1
	.TreeColumnIndex = 1
	.Columns.Add "Column 1"
	.Columns.Add "Column 2"
	With .Items
		h = .AddItem("Root 1.1")
		.CellCaption(h,1) = "Root 1.2"
		.CellCaption(.InsertItem(h,,"Child 1.1"),1) = "Child 1.2"
		.CellCaption(.InsertItem(h,,"Child 2.1"),1) = "Child 2.2"
		.ExpandItem(h) = True
		h = .AddItem("Root 2.1")
		.CellCaption(h,1) = "Root 2.2"
		.CellCaption(.InsertItem(h,,"Child 1.1"),1) = "Child 1.2"
	End With
End With
483
How do I sort the index column as numeric

' InsertItem event - Occurs after a new item has been inserted to Items collection.
Private Sub ComboBox1_InsertItem(ByVal Item As Long)
	With ComboBox1
		With .Items
			.CellData(Item,1) = .ItemToIndex(Item)
		End With
	End With
End Sub

With ComboBox1
	.BeginUpdate 
	.DrawGridLines = -1
	.ColumnAutoResize = True
	.ShowFocusRect = False
	.SingleEdit = True
	With .Columns.Add("Next")
		.Def(48) = 4
		.Def(52) = 4
	End With
	With .Columns.Add("Index")
		.AllowSizing = False
		.Width = 48
		.FormatColumn = "(((0 := (1 index ``)) mod 3) case ( default: ``; 0 : `<r><fgcolor=B0B0B0>`; 1: ``; 2 : `<c><fgcolor=808080>` )) + str(=:0)"
		.Def(17) = 1
		.SortType = 5
		.Position = 0
	End With
	With .Items
		.AddItem "Item 1"
		.AddItem "Item 2"
		.AddItem "Item 3"
		.AddItem "Item 4"
		.AddItem "Item 5"
		.AddItem "Item 6"
		.AddItem "Item 7"
		.AddItem "Item 8"
		.AddItem "Item 9"
		.AddItem "Item 10"
	End With
	.EndUpdate 
End With
229
How do I sort the child items

With ComboBox1
	.Columns.Add "Default"
	With .Items
		h = .AddItem("Root")
		.InsertItem h,,"Child 1"
		.InsertItem h,,"Child 2"
		.ExpandItem(h) = True
		.SortChildren h,0,False
	End With
End With
79
How do I sort descending a column, and put the sorting icon in the column's header

With ComboBox1
	.Columns.Add "Column"
	With .Items
		.AddItem "Item 1"
		.AddItem "Item 2"
		.AddItem "Item 3"
	End With
	.Columns.Item(0).SortOrder = 2
End With
78
How do I sort ascending a column, and put the sorting icon in the column's header

With ComboBox1
	.Columns.Add "Column"
	With .Items
		.AddItem "Item 3"
		.AddItem "Item 1"
		.AddItem "Item 2"
	End With
	.Columns.Item(0).SortOrder = 1
End With
72
How do I sort a column by numbers

With ComboBox1
	.Columns.Add("desc").SortType = 1
	With .Items
		.AddItem 1
		.AddItem 5
		.AddItem 10
		.SortChildren 0,0,False
	End With
End With
116
How do I show the tooltip quicker

With ComboBox1
	.ToolTipDelay = 1
	.Columns.Add("tootip").ToolTip = "this is a tooltip assigned to a column"
End With
181
How do I show or hide the sorting icons, but still need sorting

With ComboBox1
	.Columns.Add("Sorted").SortOrder = 1
	.Columns.Item(0).DisplaySortIcon = False
End With
194
How do I show buttons for all cells in the column

With ComboBox1
	With .Columns.Add("Button")
		.Def(2) = True
		.Def(3) = True
	End With
	.Items.AddItem " Button 1 "
	.Items.AddItem " Button 2 "
End With
193
How do I show buttons for all cells in the column

With ComboBox1
	.Columns.Add("Button").Def(2) = True
	.Items.AddItem 0
	.Items.AddItem 1
End With
109
How do I show alternate rows in different background color

With ComboBox1
	.BackColorAlternate = RGB(240,240,240)
	.Columns.Add "Column"
	With .Items
		.AddItem "Item 1"
		.AddItem "Item 2"
		.AddItem "Item 3"
		.AddItem "Item 4"
		.AddItem "Item 5"
	End With
End With
559
How do I set an extra data for each item
' MouseMove event - Occurs when the user moves the mouse.
Private Sub ComboBox1_MouseMove(ByVal Button As Integer, ByVal Shift As Integer, ByVal X As Long, ByVal Y As Long)
	With ComboBox1
		i = .ItemFromPoint(-1,-1,c,hit)
		Debug.Print( i )
		Debug.Print( .Items.ItemData(i) )
	End With
End Sub

With ComboBox1
	.BeginUpdate 
	.Columns.Add "Default"
	With .Items
		.ItemData(.AddItem("method 1")) = "your extra data of method 1"
		.InsertItem 0,"your extra data of method 2","method 2"
	End With
	With .Items
		.DefaultItem = .AddItem("method 3")
		.ItemData(0) = "your extra data of method 3"
	End With
	.EndUpdate 
End With
286
How do I select an item

With ComboBox1
	.Columns.Add "Default"
	With .Items
		h = .AddItem("Root 1")
		.InsertItem h,,"Child 1"
		.InsertItem h,,"Child 2"
		.ExpandItem(h) = True
		.SelectItem(h) = True
	End With
End With
347
How do I select a value

With ComboBox1
	.IntegralHeight = True
	.LinesAtRoot = 1
	.TreeColumnIndex = 1
	.Columns.Add "Column 1"
	.Columns.Add "Column 2"
	With .Items
		h = .AddItem("Root 1.1")
		.CellCaption(h,1) = "Root 1.2"
		.CellCaption(.InsertItem(h,,"Child 1.1"),1) = "Child 1.2"
		.CellCaption(.InsertItem(h,,"Child 2.1"),1) = "Child 2.2"
		.ExpandItem(h) = True
		h = .AddItem("Root 2.1")
		.CellCaption(h,1) = "Root 2.2"
		.CellCaption(.InsertItem(h,,"Child 1.1"),1) = "Child 1.2"
	End With
	.Select(1) = "Root 1.2"
End With
348
How do I select a value

With ComboBox1
	.IntegralHeight = True
	.LinesAtRoot = 1
	.TreeColumnIndex = 1
	.Columns.Add "Column 1"
	.Columns.Add "Column 2"
	With .Items
		h = .AddItem("Root 1.1")
		.CellCaption(h,1) = "Root 1.2"
		.CellCaption(.InsertItem(h,,"Child 1.1"),1) = "Child 1.2"
		.CellCaption(.InsertItem(h,,"Child 2.1"),1) = "Child 2.2"
		.ExpandItem(h) = True
		h = .AddItem("Root 2.1")
		.CellCaption(h,1) = "Root 2.2"
		.CellCaption(.InsertItem(h,,"Child 1.1"),1) = "Child 1.2"
	End With
	.Value = "Root 1.1"
End With
466
How do I select a NULL/empty value

With ComboBox1
	.BeginUpdate 
	.Style = 2
	.Columns.Add "Items"
	With .Items
		.AddItem "Item 1"
		.AddItem "Item 2"
		.AddItem "Item 3"
		.AddItem "Item 4"
		.DefaultItem = .InsertItem(,,"")
		.ItemPosition(0) = 0
		.SortableItem(0) = False
	End With
	.Value = ""
	.EndUpdate 
End With
114
How do I search case sensitive, using your incremental search feature

With ComboBox1
	.AutoSearch = True
	.ASCIILower = ""
	With .Columns
		.Add("exStartWith").AutoSearch = 0
		.Add("exContains").AutoSearch = 1
	End With
	With .Items
		.CellCaption(.AddItem("text"),1) = "another text"
	End With
	With .Items
		.CellCaption(.AddItem("text"),1) = "another text"
	End With
End With
262
How do I retrieve the focused item

With ComboBox1
	.Columns.Add "Default"
	With .Items
		h = .AddItem("Root 1")
		.InsertItem h,,"Child 1"
		.InsertItem h,,"Child 2"
		.ExpandItem(h) = True
		.ItemBold(.FocusItem) = True
	End With
End With
345
How do I remove the drop down's border

With ComboBox1
	.DropDownBorder = 0
End With
69
How do I remove the control's border

With ComboBox1
	.Appearance = 0
End With
451
How do I prevent scrolling the control's data after user does the sort

With ComboBox1
	.EnsureOnSort = False
	.Columns.Add "Column"
	With .Items
		.AddItem "Item 3"
		.AddItem "Item 1"
		.AddItem "Item 2"
	End With
	.PutItems .GetItems(0)
	.PutItems .GetItems(0)
	.PutItems .GetItems(0)
	.Columns.Item(0).SortOrder = 1
End With
585
How do I prevent changing the cell's state ( check-box state )
' CellStateChanging event - Fired before cell's state is about to be changed.
Private Sub ComboBox1_CellStateChanging(ByVal Cell As Long, NewState As Long)
	With ComboBox1
		With .Items
			NewState = .CellState(,Cell)
		End With
	End With
End Sub

With ComboBox1
	.BeginUpdate 
	.LinesAtRoot = -1
	With .Columns.Add("P1")
		.Def(0) = True
		.PartialCheck = True
	End With
	With .Columns.Add("P2")
		.Def(0) = True
		.PartialCheck = True
	End With
	With .Items
		h = .AddItem("Root")
		.InsertItem h,,"Child 1"
		.InsertItem h,,"Child 2"
		.ExpandItem(h) = True
	End With
	.EndUpdate 
End With
77
How do I perform my own/custom sort, using my extra strings

With ComboBox1
	.Columns.Add("desc").SortType = 5
	With .Items
		.CellData(.AddItem("A"),0) = "C"
		.CellData(.AddItem("B"),0) = "B"
		.CellData(.AddItem("C"),0) = "A"
		.SortChildren 0,0,False
	End With
End With
76
How do I perform my own/custom sort, using my extra numbers

With ComboBox1
	.Columns.Add("desc").SortType = 5
	With .Items
		.CellData(.AddItem(0),0) = 2
		.CellData(.AddItem(1),0) = 1
		.CellData(.AddItem(2),0) = 0
		.SortChildren 0,0,False
	End With
End With
82
How do I perform my own sorting when user clicks the column's header

With ComboBox1
	.SortOnClick = 1
	.Columns.Add "Column"
	.Items.AddItem "Item 1"
	.Items.AddItem "Item 2"
End With
334
How do I lock or make read-only the control

With ComboBox1
	.Locked = True
	.Columns.Add "Column"
	With .Items
		.AddItem "Item 3"
		.AddItem "Item 1"
		.AddItem "Item 2"
	End With
End With
331
How do I let user to resize the drop down window, at runtime

With ComboBox1
	.AllowSizeGrip = True
	.Columns.Add "Column"
	With .Items
		.AddItem "Item 3"
		.AddItem "Item 1"
		.AddItem "Item 2"
	End With
End With
332
How do I let user to resize only the width of the drop down window, at runtime

With ComboBox1
	.AllowSizeGrip = True
	.AllowVResize = False
	.Columns.Add "Column"
	With .Items
		.AddItem "Item 3"
		.AddItem "Item 1"
		.AddItem "Item 2"
	End With
End With
333
How do I let user to resize only the height of the drop down window, at runtime

With ComboBox1
	.AllowSizeGrip = True
	.AllowHResize = False
	.MinWidthList = 100
	.MinHeightList = 100
	.Columns.Add "Column"
	With .Items
		.AddItem "Item 3"
		.AddItem "Item 1"
		.AddItem "Item 2"
	End With
End With
117
How do I let the tooltip being displayed longer

With ComboBox1
	.ToolTipPopDelay = 10000
	.Columns.Add("tootip").ToolTip = "this is a tooltip assigned to a column"
End With
153
How do I highlight in italic the numbers greater than a value

With ComboBox1
	.ConditionalFormats.Add("%0 >= 10").Italic = True
	.Columns.Add "Numbers"
	.Items.AddItem 1
	.Items.AddItem 2
	.Items.AddItem 10
	.Items.AddItem 20
End With
154
How do I highlight in italic the numbers greater than a value

With ComboBox1
	.ConditionalFormats.Add("%0 >= 10").StrikeOut = True
	.Columns.Add "Numbers"
	.Items.AddItem 1
	.Items.AddItem 2
	.Items.AddItem 10
	.Items.AddItem 20
End With
152
How do I highlight in bold the numbers greater than a value

With ComboBox1
	.ConditionalFormats.Add("%0 >= 10").Bold = True
	.Columns.Add "Numbers"
	.Items.AddItem 1
	.Items.AddItem 2
	.Items.AddItem 10
	.Items.AddItem 20
End With
71
How do I hide the control's header bar

With ComboBox1
	.HeaderVisible = False
End With
258
How do I get the parent item

With ComboBox1
	.Columns.Add "Default"
	With .Items
		h = .AddItem("Root 1")
		.InsertItem h,,"Child 1"
		.InsertItem h,,"Child 2"
		.ExpandItem(h) = True
		.ItemBold(.ItemParent(.ItemChild(h))) = True
	End With
End With
232
How do I get the number or count of items

With ComboBox1
	.Columns.Add "Default"
	With .Items
		h = .AddItem("Root")
		.InsertItem h,,"Child 1"
		.InsertItem h,,"Child 2"
		.ExpandItem(h) = True
	End With
	With .Items
		.AddItem .ItemCount
	End With
End With
261
How do I get the number or count of child items

With ComboBox1
	.Columns.Add "Default"
	With .Items
		h = .AddItem("Root 1")
		.InsertItem h,,"Child 1"
		.InsertItem h,,"Child 2"
		.ExpandItem(h) = True
		.AddItem .ChildCount(h)
	End With
End With
339
How do I get the handle of the drop down window

With ComboBox1
	.Columns.Add ComboBox1.hWndDropDown
End With
263
How do I get the handle of the cell

With ComboBox1
	.Columns.Add "Default"
	With .Items
		h = .AddItem("Root 1")
		.InsertItem h,,"Child 1"
		.InsertItem h,,"Child 2"
		.ExpandItem(h) = True
		.CellBold(,.ItemCell(h,0)) = True
	End With
End With
257
How do I get the first child item

With ComboBox1
	.Columns.Add "Default"
	With .Items
		h = .AddItem("Root 1")
		.InsertItem h,,"Child 1"
		.InsertItem h,,"Child 2"
		.ExpandItem(h) = True
		.ItemBold(.ItemChild(h)) = True
	End With
End With
486
How do I get sorted the column as string, numeric, date, date and time. Also how can it be applied to drop down filter panel

With ComboBox1
	.BeginUpdate 
	With .Columns.Add("Date")
		.SortType = 2
		.DisplayFilterButton = True
		.DisplayFilterPattern = False
		.DisplayFilterDate = True
		.FilterList = 1296 ' FilterListEnum.exShowFocusItem Or FilterListEnum.exShowCheckBox Or FilterListEnum.exSortItemsDesc
	End With
	With .Columns.Add("DateTime")
		.SortType = 3
		.DisplayFilterButton = True
		.DisplayFilterPattern = False
		.FilterList = 1296 ' FilterListEnum.exShowFocusItem Or FilterListEnum.exShowCheckBox Or FilterListEnum.exSortItemsDesc
	End With
	With .Columns.Add("Time")
		.SortType = 4
		.DisplayFilterButton = True
		.DisplayFilterPattern = False
		.FilterList = 1296 ' FilterListEnum.exShowFocusItem Or FilterListEnum.exShowCheckBox Or FilterListEnum.exSortItemsDesc
		.FormatColumn = "time(value)"
	End With
	With .Columns.Add("Numeric")
		.SortType = 1
		.DisplayFilterButton = True
		.FilterList = 1296 ' FilterListEnum.exShowFocusItem Or FilterListEnum.exShowCheckBox Or FilterListEnum.exSortItemsDesc
	End With
	With .Columns.Add("String")
		.DisplayFilterButton = True
		.FilterList = 1296 ' FilterListEnum.exShowFocusItem Or FilterListEnum.exShowCheckBox Or FilterListEnum.exSortItemsDesc
	End With
	With .Items
		h = .AddItem(#1/27/2010#)
		.CellCaption(h,1) = #1/27/2010 10:00:00 AM#
		.CellCaption(h,2) = .CellCaption(h,1)
		.CellCaption(h,3) = 1
		.CellCaption(h,4) = .CellCaption(h,3)
		h = .AddItem(#1/27/2011#)
		.CellCaption(h,1) = #1/27/2011 9:00:00 AM#
		.CellCaption(h,2) = .CellCaption(h,1)
		.CellCaption(h,3) = 11
		.CellCaption(h,4) = .CellCaption(h,3)
		h = .AddItem(#11/2/2010#)
		.CellCaption(h,1) = #11/2/2010 9:00:00 AM#
		.CellCaption(h,2) = .CellCaption(h,1)
		.CellCaption(h,3) = 2
		.CellCaption(h,4) = .CellCaption(h,3)
	End With
	.Columns.Item("DateTime").DisplayFilterDate = False
	.EndUpdate 
End With
96
How do I get ride of the rectangle arround focused item

With ComboBox1
	.ShowFocusRect = False
	.Columns.Add "Column"
	.Items.AddItem 0
	.Items.AddItem 1
End With
470
How do I get notified once the user changes the Filter For field
' EditChange event - Fired when the user has taken an action that may have altered text in an edit control.
Private Sub ComboBox1_EditChange(ByVal ColIndex As Long)
	With ComboBox1
		Debug.Print( "ColIndex: " )
		Debug.Print( ColIndex )
		Debug.Print( "Label: " )
		Debug.Print( .EditText(0) )
		Debug.Print( "FilterFor: " )
		Debug.Print( .EditText(-1) )
	End With
End Sub

With ComboBox1
	.BeginUpdate 
	.FilterForVisible = True
	.FilterForBackColor = RGB(240,240,240)
	.IntegralHeight = True
	.Columns.Add "Default"
	With .Items
		.AddItem "Item 1"
		.AddItem "Item 2"
		.AddItem "Item 3"
		.AddItem "Item 4"
		.AddItem "Item 5"
	End With
	.EndUpdate 
End With
547
How do I get a list of interfaces the object implemenets

With ComboBox1
	.BeginUpdate 
	.ColumnAutoResize = False
	With CreateObject("DAO.DBEngine.120")
		Set rs = .OpenDatabase("C:\Program Files\Exontrol\ExComboBox\Sample\Access\sample.accdb").OpenRecordset("Orders")
	End With
	Debug.Print( CreateObject("Exontrol.PropertiesList").Interfaces(rs).Interfaces(rs) )
	.DataSource = rs
	.Value = 10248
	.EndUpdate 
End With
287
How do I find the selected item

With ComboBox1
	.Columns.Add "Default"
	With .Items
		h = .AddItem("Root 1")
		.InsertItem h,,"Child 1"
		.InsertItem h,,"Child 2"
		.ExpandItem(h) = True
		.SelectItem(h) = True
		.ItemBold(.SelectedItem(0)) = True
	End With
End With
294
How do I find the index of the item based on its handle

With ComboBox1
	.Columns.Add "Default"
	With .Items
		h = .AddItem("Root 1")
		.InsertItem h,,"Child 1"
		.InsertItem h,,"Child 2"
		.ExpandItem(h) = True
		.ItemBold(.ItemByIndex(.ItemToIndex(h))) = True
	End With
End With
293
How do I find the handle of the item based on its index

With ComboBox1
	.Columns.Add "Default"
	With .Items
		h = .AddItem("Root 1")
		.InsertItem h,,"Child 1"
		.InsertItem h,,"Child 2"
		.ExpandItem(h) = True
		.ItemBold(.ItemByIndex(1)) = True
	End With
End With
297
How do I find an item based on a path

With ComboBox1
	.Columns.Add "Default"
	With .Items
		h = .AddItem("Root 1")
		.InsertItem h,,"Child 1"
		.ItemData(.InsertItem(h,,"Child 2")) = 1234
		.ExpandItem(h) = True
		.ItemBold(.FindPath("Root 1\Child 1")) = True
	End With
End With
296
How do I find an item

With ComboBox1
	.Columns.Add "Default"
	With .Items
		h = .AddItem("Root 1")
		.InsertItem h,,"Child 1"
		.InsertItem h,,"Child 2"
		.ExpandItem(h) = True
		.ItemBold(.FindItem("Child 2",0)) = True
	End With
End With
107
How do I filter programatically the control

With ComboBox1
	With .Columns.Add("Column")
		.DisplayFilterButton = True
		.FilterType = 3
		.Filter = "Item*"
	End With
	.Items.AddItem "Item 1"
	.Items.AddItem ""
	.Items.AddItem "Item 2"
	.ApplyFilter 
End With
63
How do I filter for items that match exactly the specified string

With ComboBox1
	With .Columns.Add("Column")
		.DisplayFilterButton = True
		.FilterType = 240
		.Filter = "Item 1"
	End With
	.Items.AddItem "Item 1"
	.Items.AddItem "Item 2"
	.Items.AddItem "Item 3"
	.ApplyFilter 
End With
234
How do I expand or collapse an item

With ComboBox1
	.Columns.Add "Default"
	With .Items
		h = .AddItem("Root")
		.InsertItem h,,"Child 1"
		.InsertItem h,,"Child 2"
		.ExpandItem(h) = True
	End With
End With
123
How do I expand automatically the items while user types characters to searching for something ( incremental searching )

With ComboBox1
	.ExpandOnSearch = True
	.LinesAtRoot = -1
	.AutoSearch = True
	.Columns.Add("Column").AutoSearch = 1
	With .Items
		.InsertItem .InsertItem(.AddItem("text"),,"some text"),,"another text"
		.InsertItem .InsertItem(.AddItem("text"),,"some text"),,"another text"
	End With
End With
260
How do I enumerate the visible items

With ComboBox1
	.Columns.Add "Default"
	With .Items
		h = .AddItem("Root 1")
		.InsertItem h,,"Child 1"
		.InsertItem h,,"Child 2"
		.ExpandItem(h) = True
		h = .AddItem("Root 2")
		.ItemBold(.FirstVisibleItem) = True
		.ItemBold(.NextVisibleItem(.FirstVisibleItem)) = True
	End With
End With
259
How do I enumerate the siblings items

With ComboBox1
	.Columns.Add "Default"
	With .Items
		h = .AddItem("Root 1")
		.InsertItem h,,"Child 1"
		.InsertItem h,,"Child 2"
		.ExpandItem(h) = True
		h = .AddItem("Root 2")
		.ItemBold(.NextSiblingItem(.FirstVisibleItem)) = True
		.ItemBold(.PrevSiblingItem(.NextSiblingItem(.FirstVisibleItem))) = True
	End With
End With
256
How do I enumerate the root items

With ComboBox1
	.Columns.Add "Default"
	With .Items
		h = .AddItem("Root 1")
		.InsertItem h,,"Child 1"
		.InsertItem h,,"Child 2"
		.ExpandItem(h) = True
		h = .AddItem("Root 2")
		.InsertItem h,,"Child 1"
		.InsertItem h,,"Child 2"
		.ItemBold(.RootItem(0)) = True
		.ItemUnderline(.RootItem(1)) = True
	End With
End With
40
How do I ensure that the focused item is visible, after the user does the sort

With ComboBox1
	.EnsureOnSort = True
	.Columns.Add "Column"
	With .Items
		.AddItem "Item 3"
		.AddItem "Item 1"
		.AddItem "Item 2"
	End With
	.PutItems .GetItems(0)
	.PutItems .GetItems(0)
	.PutItems .GetItems(0)
	.Columns.Item(0).SortOrder = 1
End With
108
How do I enlarge the drop down filter window

With ComboBox1
	.FilterBarDropDownHeight = "-320"
	With .Columns.Add("Column")
		.DisplayFilterButton = True
		.FilterBarDropDownWidth = "-320"
	End With
	.Items.AddItem "Item 1"
	.Items.AddItem "Item 2"
End With
165
How do I enlarge or change the size of the control's scrollbars

With ComboBox1
	.ScrollHeight = 18
	.ScrollWidth = 18
	.ScrollButtonWidth = 18
	.ScrollButtonHeight = 18
End With
112
How do I enable the incremental search feature within a column

With ComboBox1
	.AutoSearch = True
	With .Columns
		.Add("exStartWith").AutoSearch = 0
		.Add("exContains").AutoSearch = 1
	End With
	With .Items
		.CellCaption(.AddItem("text"),1) = "another text"
	End With
	With .Items
		.CellCaption(.AddItem("text"),1) = "another text"
	End With
End With
138
How do I enable resizing the columns at runtime

With ComboBox1
	.ColumnsAllowSizing = True
	.MarkSearchColumn = False
	.HeaderVisible = False
	.Columns.Add "Column 1"
	.Columns.Add "Column 2"
	.DrawGridLines = 2
	With .Items
		.CellCaption(.AddItem("Item 1"),1) = "Sub Item 1"
	End With
	With .Items
		.CellCaption(.AddItem("Item 2"),1) = "Sub Item 2"
	End With
End With
351
How do I enable resizing all the items at runtime

With ComboBox1
	.ItemsAllowSizing = 1
	.DrawGridLines = 1
	.Columns.Add "Column"
	.Items.AddItem "Item 1"
	With .Items
		.ItemHeight(.AddItem("Item 2")) = 48
	End With
	.Items.AddItem "Item 3"
End With
137
How do I enable resizing ( changing the height ) the items at runtime

With ComboBox1
	.ItemsAllowSizing = True
	.ScrollBySingleLine = True
	.Columns.Add "Column"
	.Items.AddItem "Item 1"
	With .Items
		.ItemHeight(.AddItem("Item 2")) = 48
	End With
	.Items.AddItem "Item 3"
End With
180
How do I enable or disable the entire column

With ComboBox1
	.Columns.Add "C1"
	.Columns.Add("Disabled").Enabled = False
	With .Items
		.CellCaption(.AddItem(0),1) = "0.1"
	End With
	With .Items
		.CellCaption(.AddItem(1),1) = "1.1"
	End With
End With
268
How do I enable or disable a cell

With ComboBox1
	.Columns.Add "C1"
	.Columns.Add "C2"
	With .Items
		h = .AddItem("Cell 1")
		.CellCaption(h,1) = "Cell 2"
		.CellEnabled(h,1) = False
	End With
End With
553
How do I display the position of the item with 0-padding

With ComboBox1
	.BeginUpdate 
	.Columns.Add("Items").FormatColumn = "((1 apos ``) lpad `00`) + `. `  + value"
	With .Items
		.AddItem "Item A"
		.AddItem "Item B"
		.AddItem "Item C"
		.AddItem "Item D"
	End With
	.EndUpdate 
End With
349
How do I display the icons being selected in the control's label

With ComboBox1
	.Images "gBJJgBAIDAAGAAEAAQhYAf8Pf4hh0QihCJo2AEZjQAjEZFEaIEaEEaAIAkcbk0olUrlktl0vmExmUzmk1m03nE5nU7nk9n0/oFBoVDolFo1HpFJpVLplNp1PqFRqVTq" & _
	"lVq1XrFZrVbrldr1fsFhsVjslls1ntFptVrtltt1vuFxuVzul1u13vF5vV7vl9v1/wGBwWDwmFw2HxGJxWLxmNx0xiFdyOTh8Tf9ZymXx+QytcyNgz8r0OblWjyWds+m" & _
	"0ka1Vf1ta1+r1mos2xrG2xeZ0+a0W0qOx3GO4NV3WeyvD2XJ5XL5nN51aiw+lfSj0gkUkAEllHanHI5j/cHg8EZf7w8vl8j4f/qfEZeB09/vjLAB30+kZQAP/P5/H6/y" & _
	"NAOAEAwCjMBwFAEDwJBMDwLBYAP2/8Hv8/gAGAD8LQs9w/nhDY/oygIA="
	.Columns.Add "Column"
	With .Items
		.CellImage(.AddItem("Image 1"),0) = 1
		.CellImage(.AddItem("Image 2"),0) = 2
		.CellImage(.AddItem("Image 3"),0) = 3
	End With
	.AssignEditImageOnSelect(0) = True
	.Value = "Image 2"
End With